Profile of (eval 308)[Sub/Quote.pm:3]

Filename	(eval 308)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 217 statements in 327µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
17	1	1	179µs	202µs	JSON::Schema::Modern::Document::_assert_errors
1	1	1	7µs	17µs	JSON::Schema::Modern::Document::BEGIN@7.156
1	1	1	5µs	13µs	Method::Generate::Accessor::_Generated::BEGIN@24.158
1	1	1	3µs	3µs	Method::Generate::Accessor::_Generated::BEGIN@12.157

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	0s			my $default_for_errors = ${$_[1]->{"\$default_for_errors"}};
6					package JSON::Schema::Modern::Document;
7	2	31µs	2	27µs	# spent 17µs (7+10) within JSON::Schema::Modern::Document::BEGIN@7.156 which was called: # once (7µs+10µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 17µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.156 # spent 10µs making 1 call to warnings::unimport
8					# spent 202µs (179+23) within JSON::Schema::Modern::Document::_assert_errors which was called 17 times, avg 12µs/call: # 17 times (179µs+23µs) by JSON::Schema::Modern::Document::has_errors at line 17 of (eval 306)[Sub/Quote.pm:3], avg 12µs/call sub _assert_errors {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@12.157 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 2018;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	2µs			%^H = (
16					);
17	1	24µs	1	3µs	} # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.157
18					# END quote_sub PRELUDE
19	17	33µs			do {
20					my $val = exists $_[0]->{"errors"} ?
21					$_[0]->{"errors"}
22	17	13µs			: do {
23	15	28µs	15	23µs	my $value = $default_for_errors->($_[0]); # spent 23µs making 15 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:110], avg 2µs/call
24	107	151µs	2	21µs	# spent 13µs (5+8) within Method::Generate::Accessor::_Generated::BEGIN@24.158 which was called: # once (5µs+8µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$self->{\"errors\"}"); $value }; # spent 13µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.158 # spent 8µs making 1 call to warnings::unimport
25	15	32µs			$_[0]->{"errors"} = $value
26					}
27					;
28	17	7µs			exists $_[0]->{"errors"}
29					or Carp::croak(q{Attempted to access '}."errors".q{' but it is not set});
30	17	0s			$val;
31					}
32					}
33	1	0s			$$_UNQUOTED = \&_assert_errors;
34					}
35	1	3µs			1;
36
37					;